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4 16 a-$£p= 1984 10:34:08 BASRTL. SRC JBASMATSUB.MAR; 1 - (1) 
-TITLE BASSMAT_SUB 
IDENT /1-016/ ; File: BASMATSUB.MAR Edit: DG1016 


s eeecccecccceccecceecccrevecccceceeccccsceeeccnceecocccceececcoceecsceceeecs 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


DIGITAL EQUI PHENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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: PRR RARASASZALALALALELEEALALEELE SERRA E RARER R REAR REESE ARR RRR RRR SARA RRA SS SY 
++ 

; FACILITY: BASIC code support 

; ABSTRACT: 

This module subtracts the second input array from the first input 
oreey and stores the result in a third array. All three arrays 

pay e 3 any dtype except that float and double may not 
e mixed. 


; ENVIRONMENT: User Mode, AST Reentrant 
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: AUTHOR: R. Will, CREATION DATE: 22-Jun-79 


; MODIFIED BY: 
++ 


COOOCOCCOCOOCOSOSSOSSSOSOSSSSSCOSOCCOSCOC OOOO SOOOOCOOOOOOOOOoOoOO 
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1-004 - Original 
3 I- ¢ - Set IV bit in entry mask, RW 2-0ct-79 
1-003 - Add support for byte, g & h floating. PLL 22-Sep-81 
0 ; 1-004 - Change shared external references to G* RNH 25-Sep-81 
0 ; 1-005 - Substitute a macro for the calls to the array fetch and store 
0 routines. This should speed things up. PLL 9-Nov-81 
0 1-006 = STORE macro must handle g & h floating. PLL 11-Nov-81 
1- - Reserve enough space on the stack for an hfloat source. PLL 17-Nov-81 
; 1-008 - Correct an error message. 
- gore Fi. run-time expression in the FETCH and STORE macros. 
oe an- 
000 1-009 - Correct FETCH, STORE again. PLL 23-Feb-82 


| F 8 
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19 = Don't atge macro expansions. PLL 16-Mar-8 
11 = Fix stor ng of 9 g and h : oats ( yse the ‘ifs vogteters) PLL 13-Apr-82 
12 = Add guppor or errays © desert {eters Ai'Se My ootg Me Tey and 

STORE macros = they are now in S. 
i = Change own storage 2 stack stora — tb” 9-J meer tae 
$13 

16 
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- Allow gfloat “tg A 5863 tored ina Gouble” dest ination, and 
vice versa. PLL 

- Use G* for AL Seteresie. = 16-Nov-1982 

- BYTE destination must use STORE_BYTE. DG 10-Jan-1984 
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; -SBTTL DECLARATIONS 
: INCLUDE FILES: 
SOSCDEF 3; define descriptor offsets 
SSF DEF ; use to get scale 


| EXTERNAL DECLARATIONS: 


-DSABL GBL Prevent undeclared 
symbols from being ' 
al. 
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000 -EXTRN BASSK_ARGDONMAT 3 signalled if a blocks 

000 i; not present _in array desc 

000 3; or dimct = 

000 -EXTRN BASSK_DATTYPERR :; signalled if dtype of array 
0000 ; isn't word long float double 
350 -EXTRN BASSK_MATDIMERR 3; signalled if # of dims on 

000 3 source arrays don't agree 
444 -EXTRN BASSK_ARRMUSSAM : signalled if upper and lower 

000 38 3: bnds not same on src arrays 
0000 -EXTRN BASSSTO_FA_B_RB ; array element store for byte 
0000 94 eEXTRN Ht ee 3 array element store for word 
bo 95 -EXTRN BASSSTO_FA_L_R ; array element store for long 
000 96 eEXTRN BASSSTO_FA_F_R8 3 array element store - float 
0000 97 -EXTRN BASSSTO_FA_D_R8 ; array element store - double 
0000 98 -EXTRN BASSSTO_FA_G_R8 3; array element store - gfloat 
0000 99 -EXTRN BASSSTO_FA_H_RB ; array element store - hfloat 
0000 -EXTRN BASSFET_FA_B_R8 3 array element fetch - byte 
0000 eEXTRN BASSFET_FA_W_R8 3 array element fetch - word 
94 -EXTRN BASSFET_FA_L_R8 ; array element fetch - long 
000 e-EXTRN BASSFET_FA_F_R8S ; array element fetch - float 
44 eEXTRN BASSFET FAD RG : array element fetch - double 

000 -EXTRN BASSFET_FA_G_R 3 array element fetch - gfloat 

000 -EXTRN BASSFET FA_H_RB i array element fetch - Afloat 

000 -EXTRN MTHSDINT RG ; cvt dbl to truncated dbl 

000 -EXTRN BASSMAT_REDIM : check if redimensioning of 
44 3 dest array is necessary, if 

; so, do 
0000 -EXTRN BASSSSCALE_R1 : scale for double procision 
8 ~-EXTRN BASSSSTOP 3; signal fatal errors 
“EXTRN BASSFETCH_BFA 
-EXTRN BASSSTORE_BFA 


SBASSMAT_SUB subtract loop algorithm, see next page 
FETCH fetch an element from an array 
STORE store an element into an array 
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1 § ; 
1 
000000 1 lower_bnd2 = 0 3; stack offset for tem 
§50080b% 1 5 lower_bnd1 = 4 3 stack offset for tone 
4 Babe 0 130 upper_bnd1 = 3 stack offset for temp 
oc 131 save_srce = 1 ; stack offset for temp 
0 Baie 1 § value_desc = 28 ; output descriptor 
00001C 1 str_len = 28 ; length field within desc 
BRORIE 000 134 dtype = 3 ; data type field in desc 
QO0O0001F 0000 135 class = 31 : class field within desc 
00000020 000 136 pointer = 32 ; pointer to data 
44444 4 38 137 data = 36 ; data 
0000018 138 dsc$l_l1_1 = 24 ; desc offset if 1 sub 
000001C 38 139 sc$l_ul_1 = 28 :; desc offset if 1 sub 
4 4 9 0 140 dsc$l_l1_2 = 28 : desc offset if 2 sub 
000000 00 141 dsc$l_ul_2 = 32 ; desc offset if 2 sub 
00000024 0000 126 dsc$l_l2_2 = 36 ; desc offset if 2 sub 
00000028 0000 14 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
0000 144 
0000 145 ; 
0000 146 ; OWN STORAGE: 
0000 147 ; 
0000 148 
0000 149 
0000 150; 
4464 13) ; PSECT DECLARATIONS: 
00000000 138 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
0000 154 EXE, RD, NOWRT, LONG 
0000 155 
0000 156 
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3¢ 

; This macro contains the jooping mechanism for accessing att elements of 
an array. It also contains the logic for all the combinations of data 
types and scaling. A macro is used to make it easy to maintain the parallel 
code for all the different data types. 


-MACRO S$BASSMAT_SUB srci_dtype, src2_dtype ; subtract algorithm 


+ 


through all the rows. Row and column upper and lower bounds have been 
ialized on the stack. 


—— 
30 
=O 
ou 


LOOP_1ST_SUB'srci_dtype'src2_dtype': 
AVL He Rit 


Lower_bnd2(SP), ; R11 has 2nd lower bound 


3¢ 

: Loop through all the elements (columns) of the current row. Column lower 
; bound is initialized in R11. Column upper bound is on the stack. 

; Distinguish array by data type so that the correct fetch routine can 

; retrieve the data, the correct subtract can be done and the correct 

; store routine can be called. 


LOOP_2ND_SUB'srcil_dtype'src2_dtype’: 


3¢ 
; Get the data from the second source array - the subtrahend 


MOVL src2_matrix(AP), RO ; pointer to 2nd src array 
MOVL lower _bnd1i(SP), R1 3 current row 

MOVL R11, R2 3 current col 

FETCH “grc2_dt ype: : fetch data from src2 array 
MOV'src2_dtype' + Save_src2(SP) ; store the 2nd array element 


3+ 
: Get the data from the first source array - the minuend 


pointer to Ist src array 
current row 

current col 

fetch data from srcl array 


MOVL srcl_matrix(AP), RO 
MOVL lower _bndi(SP), R1 


MOVL P 
FETCH ‘srci_dtype’ 


3; If the data types of the 2 source arrays is the same, do the arithmetic 
: In that data type. Else convert the data to a common type and subtract. 
: If gfloat and double operands are mixed, they must be promoted to hfloat 
: for the subtract. 


IF IDN 
SUB'srcil_dtype'2 


srcl_dtype, src2_dtype ; src arrays are 
; same data type 
save_src2(sP), RO 
; sub the source elements 


Oe 


SS 
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DECLARATIONS 6-SEP-1984 BASRTL.SRCJBASMATSUB.MAR; 1 
15 BSBwW DEST_CASE_‘srcl_dtype’ 3 go to store in dest 
16 LFF 3 src arrays different dtype 
1 IF ION srci_dtype, H ; source 1 is hfloat 
09 18 CVT'src2_dtype'H save_src2(SP), R& 
1 3; cvt array2 to hfloat 
0 SUBH2 R4, RO 3; subtract 
00 1 BSBy DEST_CASE_H ; evt to dest type 
00 j ti ION src2_dtype, H ; source 2 is hfloat 
4 4 sua are! etyee © ~ RO 3 cvt srcl to hfloat 
00 5 SUBH save_src2(SP), RO 3 subtract 
6009 § st 4 DEST_CASE_H i; cvt to dest type 
000 8 IF IDN srci_dtype, G : source 1 is pfloas 
0000 $3 IF DIF src2_dtype, D ; don't mix gfloat & dbl 
0000 0 CVT'src2_dtype'G save_src2(SP), Re 
0000 31 3; cvt src2 to gfloat 
0000 3 SUBG2 R2, RO 3 subtract 
0000 ; BSBW DEST_CASE_G 3; cvt to dest type 
0000 4 LFF : gfloat & dbl 
0000 35 CVTDH save_src2(SP), R4 3 promote src2 to hfloat 
0000 36 CVTGH RO, RO 3 promote srci to hfloat 
0000 37 SUBH2 R4, RO 3; subtract 
44 3 ied DEST_CASE_H 3 cvt to dest type 
0000 40 LFF 
44 41 IF IDN src2_dtype. G : source 2 is gfloat 
000 4 IF DIF srci_dtype, D ; &@ srci not d 
0000 4 CVT'srci_dtype' ‘ ; cvt srcil to gfloat 
0000 44 SUBG2 Save _src2(SP), RO 3 subtract 
0000 45 BSBW DEST_CASE_G 3; cvt to dest type 
0000 46 LFF ; gfloat & dbl 
0000 47 CVTGH save_src2(SP), R4 3; promote src2 to hfloat 
0000 48 CVTDH RO, RO 3 promote srci to hfloat 
0000 49 SUBH2 R4, RO 3 subtract 
BS Sp Baby bet tase 
0000 5 LFF 
0000 33 ti IDN srci_dtype, D ; source 1 is double 
0000 54 CVT'src2_dtype'D save_src2(SP), save_src2(SP) 
0000 55 3 cvt array2 to double & save 
0000 2$ MOVD RO, -(SP) 3 save sourcel 
0000 25 MOVL SFSL_SAVE_FP(FP), RO > pass FP to get scale 
44 28 JSB G*BASSS$SCALE_R1 3: get scale in RO & R1 
5 ; call a BLISS routine because 
st 60 3; the frame offsets are only 
000 61 :; defined for BLISS 
0000 $¢ MULD2 save_src2+8(SP), RC : scale 2nd element (+8 becaus 
44164 6 : .srcl is saved on stack) 
0 64 JSB G*MTHSDINT_R4 ; integerize 
00 65 SUBD3 RO, (SP)+, RO 3; sub Tst element & scaled 2nd 
00 66 BSBw =-:»DEST_CASE_D : evet double dif to dest type 
4 6 LFF 3: Ist_array not double 
0 08 IF ION srce_dtype. Dd : is 2nd src double 
‘4 8 CvT'srcl gyoe 0, -(SP) : yes, make srcil double & save 
000 0 Mov. = SFS SAVE FP(FP), RO > pass FP to get scale 
000 71 JSB G*BASSSSCALE_R1 ; get scale in RO & RI 
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0 Me : call _a BLISS routine because 
7 3; the frame offsets are only 
0 74 : defined ¥ BLISS 
: 75 MULD2 (SP)+, RO 3; scale, (+8 because src2 is 
0 6 ; double and saved on stack 
0 7 JSB G“*MTHSDINT_R4 ; integerize 
4 4 SUBD2 save_src2 (SP), RO 3 compute the difference 
0 ; 7 BSBW DEST_CASE_D :; cvrt double dif to dest type 
00 0 o LFF : no double operands try float 
000 1 IF IDN srcil_dtype, F ; is Ist element float 
000 : CVT" gre2 dtype'F save_src2(SP), Ri ; make 2nd element float 
B88 3 SUBF 3; subtract 
0 4 BSBW © DEST_CASE_F : cvet float diff to dest type 
444 85 LFF i; Ist_array not float 
00 86 qi IDN srcd_dtype. F : is 2nd array float 
000 87 svt are! ctype » RO 3 yes-make Ist element float 
000 88 SUBF Save_src2(SP), RO 3; subtract 
000 89 BSBW DEST_CASE_F ; curt float diff to dest type 
000 90 LFF 3; no double or float, try long 
0000 91 olf IDN srci_dtype, L ; is Ist array long 
0000 $36 CVT'src2_dtype'L save_src2(SP), Ri ; make 2nd element Long 
0000 $3 SUBL2 ; subtract 
444 3¢ wh 4 DEST_CASE_L ; cnvrt long diff to dest type 
B00 236 IF IDN srce_dtype. L : src2 is long 
000 9 CVT'srcil_dtype'L 0, RO ; cvt srci to long 
0000 98 SUBL2 Save_src2(SP), RO ; subtract " 
0000 99 BSBW DEST_CASE_L 3; cnvrt long diff to dest type 
0000 00 o1FF 
0000 303 IF IDN srci_dtype, W ; srcl is word 
0000 02 CVT'src2_dtype'W save_src2(SP), Ri ; cvt src2 to word 
0000 30 SUBW2 3 subtract 
0000 304 BSBW = DEST_CASE_w ; evt to dest type 
0000 $02 LFF 
0000 06 If IDN src2_dtype, W 3; src2 is word 
0000 307 CVT'srci_dtype'wW 0, RO 3 cvt srcl to word 
0000 $08 SUBW2 Save _src2(SP), RO ; subtract 
44 09 BSBW DEST_CASE_W 3 cvt to dest type 
000 10 LFF 
0000 11 If IDN srci_dtype, 8B ; srci is byte 
0000 12 CVT'src2_dtype'B save_src2(SP), Ri ; cvt srce to byte 
000 1 SUBB2 3; subtract 
00 9 1 BSBu DEST_CASE_B 3 cvt to dest type 
$009 16 CVT'srcl_dtype'B RO, RO ; cvt srcl to byte 
rt 17 SUBB2 Save_src2(SP), RO ; subtract 
00 18 BSBW DEST_CASE_B 
00 19 -ENDC 
0 0 ~ENDC 
000 1 -ENDC 
000 § eENDC 
000 -ENDC 
0 4 -ENDC 
. 5 -ENDC 
§ ~ENDC 
eENDC 
8 -ENDC 


BASSMAT_SUB 1 AX/VM 
ee ASRTE eRe 


5-SEP-1984 23:52:49 Ma v04-00 p 
DECLARATIONS 5-3e- 1382 93:34 08 BASRTL. SRCIB $ 7 Ay 


BASMATSUB.MAR; 1 


8 -ENDC 
~ENDC 

oe 

00 5 ; Have stored that element. Now see if it was the last column. If not, 

000 § 3 continue with the next column. Otherwise continue to next row. 

$8 5 INCL R11 3: get next column 

B88 40 CMPL R11, R9 ; see if last column done 

00 41 BGTR 5$ 

444 4g BRW LOOP_2ND_SUB'’srci_dtype'src2_dtype’ ; no, continue inner loop 
0000 44 ;+ 

0000 45 ; Have completed entire row. See if it was the last row. If not, 

44 $$ 3; continue with next row. 

0000 47 ;- 

0000 48 

0000 $08 5$: INCL lLower_bnd1 (SP) i; get next row 

9464 29 aa lower_bnd1(SP), upper_bnd1(SP) ; see if Last row done 

8088 H BRwW LOOP_1ST_SUB'srci_dtype'src2_dtype’ ; no, continue outer loop 
0000 54 10$: RET : yes, finished 
0000 355 
0000 356 -ENDM 
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a -SBTTL BASSMAT_SUB = subtract 2 arrays giving a third 
; FUNCTIONAL DESCRIPTION: 
Subtract the second source array from ~ first source array 
giving a third. Signal an error if the 2 arrays to be 
subtracted do not have the same number of dimensions and the same 
upper and lower bounds for those dimensions. Redimension the output 
ertey to have the same upper bounds as the input arrays. 
Initialize all the necessary 
looping information on the stack. Conversions oey have to be done 
e 


so tha Fhe sources are the same data type. so div 
n a Crete. Conversion to the 


3; CALLING SEQUENCE: 
CALL BASSMAT_SUB (srcl_array.rx.da, src2_array.rw.da, dest_matrix.wx.da) 
; INPUT PARAMETERS: 


srci_matrix 
src2_matrix 


IMPLICIT INPUTS: 

Scale from the callers frame to scale double precision. 
OUTPUT PARAMETERS: 

dest_matrix = 12 
IMPLICIT OUTPUTS: 

NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 

SIDE EFFECTS: 
This routine calls the redimensioning routine and the orrey element 
fetch and store routines and therefore may signal any of their errors. 


It may also signal any of the errors Listed in the externals section. 
It may also cause the destination array to have different dimensions. 
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~-ENTRY BASSMAT_SUB, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,1V> 


peeisres USAGE 
RO - R&B destroyed by store routines 
a9 upper bound for 2nd subscript 


BPR PEELE EB EE EF FANNIN AMAA AWA AAA AANA AAA NIAAA 
= § DOOD OGDOOOS 0000000 OOO 0900 Gi G9 69 6909 09 69 09 SI NI NII NSS NIA OA AAOAAAOOUIU 
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415 ; R10 pointer to dest array descriptor 
213 3 R11 current value of 2nd subscript 
; cig 
b8 419 ;¢+ 
0 420 ; Put routine arguments into registers for ease of use. 
8 ? 3: If block 2 of array descriptor (multipliers) is not present then error. 
002 423° 
04 AC DO 000 424 MOVL srci_matrix(AP), R2 ; ptr to srcl array descr 
1F OA A2 Of €E1 00 425 BBC #DSCSV_FL_BOUNDS, DSC$B_AFLAGS(R2), ERR_ARGDONMAT 
p008 4 § ; exit Tf block 3 not 
0B 4 3 present in descriptor 
08 AC 00 0008 428 MOVL src2_matrix(AP), R3 ; ptr to src2 array descr 
16 0A AS (07)—sCs«E1«s«O00F = 429 BBC #DSCSV_FL_BOUNDS, DSC$B_AFLAGS(R3), ERR_ARGDONMAT 
0014 430 z exit Tf block 3 not 
014 431 3 present in descriptor 
5A OC AC DO 0014 $36 MOVL dest_matrix(AP), R10 3 ptr to dest descriptor 
7E 7C 0018 43 CLRQ =(SPY 
7E 7C QOIA 434 CLRQ (SP) 
7E 7C OO1C 435 CLRQ =-(S$P) 
7E 7C OQO1E 436 CLRQ -(SP) ¢ reserve space to save srcl 
7E «867C Oa55 rts CLRQ -(SP) 3: srcl may be hfloat 
005 439 ; Set up Limits for looping through all elements 
Bs HHP 
01 OB A2 91 B05 ry CMPB DSC$B_DIMCT(R2), #1 3; determine # of subscripts 
OF 13 0026 44 BEQLU INIT_ONE_SUB 3 sub, go init | 
59 «1A 0028 444 BGTRU INIT_TWO_SUBS 3 >=2 subs 9° init 
002A 445 : 0 subs, fall into error proc 
Basa 446 
002A 447 ERR_ARGDONMAT: 
00000000'8F oDD onga 448 PUSHL #BAS$K_ARGDONMAT : signal error, 0 for dimct 
00000000'GF 01 FB Boo $33 CALLS #1, G*BAS$$STOP : or block 2 or 3 absent 
0037 451 ;+ a 
+ t4 $36 3 There is only 1 subscript. Redimension the destination array. 
0037 453 ; Make both upper and lower bound for 
0037 $23 3; subscript a 1. A second subscript will be passed to and ignored by the 
Ope $2? 3 store routine. Put bounds for ist subscript on stack. 
0037 439 
B35 $28 INIT_ONE_SUB: 
0B AS «01 «991 «0037 «45 CMPB Ss #1, DSC$B_DIMCT(R3) ; do src arrays have same 
038 460 3 number of dimensions 
2 612 «#4003806 C461 BNEQU ERR_MATDIMERR 3; no, error 
1c AS) =61C A2 «91 (003 $06 CMPB dsc$l_ul_1(R2), dsc$l_u1_1(R3) ; do src arrays have the same 
04 46 3 upper bounds 
Si be 464 BNEQU ERR_ARRMUSSAM ; no, error 
18 AS 18 A291 44 $63 CMPB dsc$t_l1_1(R2), dsc$l_l1_1(R3) ; do src arrays have the same 
049 466 ; lower bounds 
“ 12 49 467 BNEQU ERR_ARRMUSSAM 3 no, error 
1c A DD 48 468 PUSHL dsc$l_ul_1(R3) ; get bound for redim 
5A OD 4 $9? PUSHL R ; pointer to dest array desc 
00000000 ° GF 0 FB 005 470 CALLS #2, G*BASSMAT_REDIM : redimension the dest 
1C A DD 005 471 PUSHL dsc$l_ul_1(R37 ; lst upper boun 


Ct el 


| 89 | 
BASSMAT_SUB 15=SEP=1984 23:52:49 VAX/VMS Macro v04-00 Page 11 | 
1-016 BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 99:34308 BASRTL.SRCIJBASMATSUB.MAR; 1 . (4) 


18 a DD p2A 128 PUSHL dsc$L_l1_1(R3) ¢ 1st lower bound 
0 in D 47 BGTR ; not 0 or neg, do 2nd sub 
6E eT dO B25 474 MOVL #1, (SP) ; don't alter col 0 
1 ODD 62 475 1$ PUSHL #1 3 dummy and upper bound 
59 01 00 0064 $78 MOVL #1, R9 ; dummy 2nd lower bound 
62 11 067 47 BRB SEPARATE_DTYPES ; go loop 
Q00000000'8F DD 0069 ‘78 sia ‘tt #BASS$K_MATDIMERR Signal 
: nal error, src arrays 
00000000'GF 01 FB Baee $3) CALLS #1, G*BASSSSTOP 3 don't have same # dinensns 
booe 188 ERR_ARRMUSSAM: 
QQ000000'8F DD 0076 484 PUSHL #BAS$K_ARRMUSSAM 3; Signal error, src arrays 
00000000'GF 961 FB 0083 ret CALLS #1, G*BASS$SSTOP 3; same bounds 
8 487 ;+ 
0083 488 ; There are 2 subscripts. (Check and redimension the destination array if 
0083 489 ; necessary. Put the upper bound for both subscripts on the 
0085 490 ; stack and make sure that the lower bound for both subscripts will start 
0083 491 ; at 1 (do not alter row or col 0) 
0083 $36 := 
0083 49 
0083 494 INIT_TWO_SUBS: 
0B AS 02 91 0083 495 CMPB = #2, DSC$B_DIMCT(R3) ; do src arrays have same 
0087 496 3; number of dimensions 
EO 12 0087 497 BNEQU ERR_MATDIMERR ; no, error 
20 AS 20 A2 91 0089 498 CMPB dsc$l_ul_2(R2), dsc$l_u1_2(R3) ; do src areere have the same 
OO8E 499 ; Ist upper bounds 
E6 12 OO8E 500 BNEQU ERR_ARRMUSSAM 3; no, error 
1¢ AS «6 1C A291 S—0090=Sss« 5501 CMPB dsc$l_l1_2(R2), dsc$l_l1_2(R3) ; do src arrays have the same 
0095 20g ; 1st lower bounds 
DF 12 0095 03 BNEQU ERR_ARRMUSSAM ; no, error 
28 AS) «628 A291 «(0097S 504 CMPB dsc$l_u2_2(R2), dsc$l_u2_2(R3) ; do src arrays have the same 
009c 8 505 ; 2nd upper bounds 
D8 12 O009C 506 BNEQU ERR_ARRMUSSAM : no, error 
24 A353 24 A2 91 OO9E 507 CMPB dsc$l_l2_2(R2), dsc$l_l2_2(R3) ; do src arrays have the same 
OOAS 508 ; 2nd lower bounds 
D1 12 QOA3S 509 BNEQU ERR_ARRMUSSAM ; no, error 
28 AS) «60D «(O0AS)~=— 5510 PUSHL dsc$t_u2_2(R3) 3; 2nd upper bound 
20 AS DD OOAB 511 PUSHL dsc$l_ul_2(R3) ; 1st upper bound 
5A DD OOAB 216 PUSHL R10 ; dest array pointer 
00000000'GF 03 FB QOAD 51 CALLS #3, G*BASSMAT_REDIM 3; redimension destination 
20 AS =DD 00B4 § 514 PUSHL qsc$t ul _g (Ral : 1st upper bound 
1C ASOD 9044 21? PUSHL dsc$l_l1_2(R3) ; 1st lower bound 
03 14 QOBA 16 BGTR 1$ 3; not row 0 or neg. do cols 
6— 01 00 43 aif MOVL #1, (SP) 3 start with row 
59 $8 AS DO OQOBF 18 1$ MOVL dsc $t ugg (Rd). R9 ; 2nd upper bound 
4 A3 OD Once 519 PUSHL dsc$l_L2_2(R3) ; 2nd lower bound 
03 14 bce 520 BGTR SEPARATE-DTYPES ; not col 0 or neg. go loop 
6—€ 01 D0 O0C 521 MOVL #1, (SP) ; start with col 
Bate 5 ¢ 
OCB 525 ;+ : ; : 
ace 5 ¢ ; Algorithm now differs according to data types 
0CcB 6 
th 7 SEPARATE DTYPES: 
05 06 02A2 8F 00CB 8 5$: TASEB DSCS$B_DTYPE(R2), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSCS$K_DTYPE_B> 


¢ 9 
| BASSMAT_SUB 15-SEP-1984 23:52:49 VAX/VMS Macro v04-00 Page 12 
| 1-016 BASSMAT_SUB = subtract 2 arrays giving g-SEb= 1 984 19:39:68 BASRTL.SRCJBASMATSUB.MAR; 1 ’ (4) 
037° 4 9 28: «WORD BYTE-2$ ; code for byte dtype 
E22° 00D 0 «WORD WORD-2$ ; code for word dtype 
1COD* 00D4 1 «WORD LONG-2$ ; code for long dtype 
O2A' 00D ¢ -WORD ERR_DATTYPERR-2$ ; quad not supported 
id 0D «WORD FLOAT-2$ : code for float dtype 
7E3° ope : - WOR DOUBLE=2$ 3; code for double dtype 
dC i+ 
00DC : : G and h floating dtype numbers fall outside the range of the CASEB, so 
BADE 3 ; check for them separately. 
ai 
1B 02 a2 91 G00 541 CMPB DSC$B_DTYPE(R2), #DSCS$K_DTYPE_G 
0 12 Q0EO ¢g BNEQ $ 
460E 31 Bors 7 BRW GFLOAT 
1c O2A 91 OOES 545 3$ CMPB DSCSB_DTYPE(R2), #DSCS$K_DTYPE_H 
0 12 Q0E9 546 BNEQ 
5414 31 Boee rth BRW HFLOAT 
18 O02A2 91 BoE 5 549 4$ CMPB DSCS$B_DTYPE(R2), #DSCS$K_DTYPE_DSC 
06 12 OOF 550 BNEQ ERR_DATTYPERR 7 
52. 04 A2 DO OOF4 551 MOVL  4(R2), R2 3 R2 <== addr of descriptor 
Di =6.11) «=(00F8 226 BRB 5$ 3; CASE again on dtype in desc 
OOFA 553 
OOFA 554 ERR_DATTYPERR: c 
00000000'8F DD OOFA 555 PUSHL #BASS$K_DATTYPERR ; Signal error, unsupported 
00000000'GF 01 FB 0100 556 CALLS #1, G*BASS$$STOP 3; dtype in array desc 


dD 9 
pages ad hs $3: $4748 AX/VMS Macro V04-00 Page W 
-016 BASSMAT_SUB = subtract 2 arrays giving 6-S 4 BASRTL.S RCIBA BASMATSUB.MAR; 1 (5) 


107 59 i+ 
i of ; Source array is a byte array. Now differentiate on the destination type. 
107 562 ° 
0S 06 02 A3 _ 8F 107 86 BYTE CASEB DSCSB_DTYPE(R3), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
002D° 010C 64 1$: «WORD BYTE_TO_BYTE-1$ ; code for byté dtype 
0218" 010 65 «WORD BYTE_TO_WORD-1$ 3 code for word dtype 
040C* 011 $6 «WORD BYTE TO-LONG-1$ ; code for long dtype 
FFEE 011 6 -WORD ERR _BATTYPERR-1$ 3 quad not supported 
OSFD' 0114 68 «WORD BYTE 10. LOAT-1$ ; code for float dtype 
O7EE* 18 $3 -WORD BYTE_TO-DOUBLE-1$ ; code for double dtype 
18 O02 AS 91 8118 71 CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_G 
03 12 O11C 278 BNEQ es 
09DD = 31 Bias iS BRwW BYTE_TO_GFLOAT 
1¢ O2A3 91 121 ae 2$ CMPB SCSB_DTYPE(R3), #DSCSK_DTYPE_H 
03 12 0125 2f8 BNEQ $ 
oBcE 31 oi z 327 BRW BYTE_TO_HFLOAT 
18 02 A3 91 O12A 579 3$ CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_DSC 
0 is O12E 580 BNEQ 
53 O4A DO 0130 581 MOVL 4(R3), R3 ; R3 <== addr of descriptor 
D1 so Ste : § BRB BYTE ; CASE again on dtype in desc 
FFC1 31 0136 584 4$: BRW ERR_DATTYPERR 
0139 585 
0139 586 ;+ 
0139 587 ; Now type of source and destination arrays are known. Use the macro to 
Hee 288 : 3; generate the code for each case 


— 9 
ASSMAT_SUB 15-SEP-1984 AX/VMS v04-00 P 14 
ett BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 9; 34: $8 YBASRTL.S bet 5BA SMATSUB.MAR; 1 or (5) 


0139 $91 BYTE_TO.BYTE: SBASSMAT_sUB_ BB 


PENPALS Dae tieetabeiines ese aais SARE Ia car’ 


BASSMAT_SUB 


327 94 BYTE_TO_WORD: 
3%8 338 — 


- subtract 2 arrays giving 


15-SEP-19 
6-SEP-19 


SBASSMAT_SUB B, 


Be 10:31:08 


AX/VMS Macro v04-00 
BASRTL.SRCJBASMATSUB.MAR; 1 


Pa 15 
- (5) 


6 9 
BASSMAT_SUB 15-SEP-1984 23:52:49 VAX/VMS M 
isbie BASSMAT_SUB = subtract 2 arrays giving g-SEpa19ee $3:34;08 Re 


$318 rd BYTE_TO_LONG: $BASSMAT_SUB B. L 


ro V04-00 Pa 1 
ASRTL.SRCJBASMATSUB.MAR; 1 - (8) 


kK 
"3 6 bate BASSMAT_SUB = subtract 2 arrays giving Merete 382 93:39:68 YESRTL SRE TGASHATSUB.MAR: 1 shee ts 
p78 600 BYTE_TO_FLOAT: S$BASSMAT_SUB B, F 


Re nen en 


ee 
BASSMAT_SUB 15S at} 9 $3 :39:88 oberg Macro Vv04-00 Page 19 
1-016 BASSMAT_SUB = subtract 2 arrays giving 6-SEP-19 31:08 (CBASRTL.SRCJBASMATSUB.MAR; 1 (5). 


O8FA 603 BYTE_TO_DOUBLE: SBASSMAT_SUB B, D 
OAFE 604 


; 


ASSMAT_SUB 
16 


BASSMAT_SUB = subtract 2 arrays giving "3 Pa} 9be 93:39:68 


QAFE 606 BYTE TOLGFLOAT: SBASSMAT_SUB 8, G 


AX/VMS Mac 
BASRTL.SRC 


o V04-00 


r 
JBA 


SMATSUB.MAR; 1 


Page 19 


(5) 


BASSMAT_SUB 15-SEP-1984 :52:49 VAX/VMS Macro V04-00 Pa 20 
with BASSMAT_SUB = subtract 2 arrays giving 6-S Pa} 984 19:34308 BASRTL.SRCJBASMATSUB.MAR; 1 tt 13) 
cr it BYTE_TO_HFLOAT: SBASSMAT_SUB  B, —H | 
EF 1] ;+ 
sf i : Source array is a word array. Now differentiate on the destination type. 
EFo 614° 
02 AS BF OEF2 615 WORD: CASEB ODSCSB_DTYPE(R3), MDSCSK_DTYPE_B, #<DSCS$K_DTYPE_D = DSCS$K_DTYPE_B> 
002D* OEF 616 1$: «WORD WORD _TO_BYTE-1$ ; code for byté dtype 
O21E" OEF9 61 WORD WORD _TO_WORD-1$ ; code for word dtype 
P308 EFB 918 ° WORD TO _LONG-1$ : code for long dtype 
f EFD 61 «WORD ERR _BATTYPERR-1$ ¢ quad not supported 
8 FD* OEFF ° 9 -WORD WORD_TO_FLOAT-1$ : code for float dtype 
EE’ oro. ? -WORD WORD_TO_DOUBLE-1$ ; code for double dtype 
91 OF 8 6 : CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_G 
1¢ a 624 BNEQ 
090d «=—3 art? ? 5 BRW WORD_TO_GFLOAT 
91 ary 6 : 2$: CMPB SCSB_DTYPE(R3), #DSCSK_DTYPE_H 
12 OF1 628 BNEQ 
OBcE 31 mi ? 4 BRW WORD_TO_HFLOAT 
02 a3 91 O18 63! 3$: CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_DSC 
is OF19 =6 § BNEQ ‘ 
DO OFIB 63 MOVL 4(R3), R3 3; R3 <-- addr of descriptor 
oe i ort o33 BRB WORD 3; CASE again on dtype in desc 
F1D6 = 331 or 31 $3 4$: BRW ERR_DATTYPERR 
OF24 637 
of se 638 ;+ ge 
OF24 639 ; Now type of source and destination arrays are known. Use the macro to 
ose 9° 3 generate the code for each case 


BASSMAT_SUB = subtract 2 arrays thee "ESP = 4982 9; 34: Hs YeASRie AE SBASMA TSB .MAR: 1 me oy 


of 36 $3 WORD_TO_BYTE: $BASS$MAT_SUB Ww, 8 
115 44 


est su 


AX/VMS Macro V04-0 


BASSMAT_SUB = subtract 2 arrays giving ‘o-sep-iobe $O;81.08 PBASKTE. SaesBAMMATS 


1115 646 WORD_TO_wORD: 


SBASSMAT_SUB sw, W 


OB.MAR: 1 one @) 


BASS$MAT_SUB 
ieote r 


BASSMAT_SUB 
1303 
14F4 


N 9 
"3 
- subtract 2 arrays giving 6-5 
cH WORD_TO_LONG: teins ute 


= = 


p=1984 


ol 


10:34:08 


AX/VMS Ma 
BASRTL.SR 


cr 
CJBA 


o V04-00 


ASMATSUB. RAR; 1 


Page 23 


(5) | 


BASSMAT_SUB 


BASSMAT_SUB = subtract 2 arrays giving "378 sats 19; 34:63 :08 


14F4 63¢ WORD_TO_FLOAT: SBASSMAT_SUB W, F 
16E5 65 


AX/VMS 
BASRTL 


Macro V04-00 
SRC JBASMATSUB.MAR; 1 


] 


Page 24 | 


iS) 


— 


C 10 


PASSAAT SUS {* P-1 o8¢ $3: 2:49 VAX/VMS Macro v04-00 Page 25 
16 BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 1:08 (CBASRTL.SRCIBASMATSUB.MAR; 1 (5) 
16€5 655 WORD_TO_DOUBLE: $BASSMAT_SUB W, D 
18—9 656 


BASSMAT_ SUB 
| 16 


——_—___----_-—- - -—- 


BASSMAT_SUB 
1869 
1AE3 


15-SEP=1 
- subtract 2 arrays giving 6-SEP-1 


9b 10:31:08 


638 WORD_TO_GFLOAT: SBASSMAT_SUB Ww, G 


AX/VMS 
BASRTL.S 


cro Vv04-00 
RCIB BASMATSUB.MAR; 1 


re i, 


15-SEP-1984 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 


1AE3 = 661 WORD_TO_HFLOAT: SBASSMAT_SUB W, H 
1CDD = 662 


i 


3:52:49 
0:31:08 


AX/VMS Macro v04-00 
BASRTL.SRCIBASMATSUB.MAR; 1 


Page 


(5). 


' aenasTetpameraaieiienes nape mma aaa = F 10 


BASSMAT_SUB ym SEP-1984 AX/VMS Macro v04-00 Pa 2 
1-016 BASSMAT_SUB = subtract 2 arrays giving SEp=1 1984 9; 37:48 :08 (CBASRTL. RC IBASMATSUB. MAR; 1 ” 8, 


1CDD 664 ;+ 
1508 686 = 3 Source array is a longword array. Now differentiate on the destination type 
1CDD 667 
05 06 02 A3 + 1¢b0 668 LONG: CASEB ODSC$B prveg (a3). #OSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
99 D’ 1CE 669 1$: «WORD LONG _TO_BYTE-1$ ; code for byte dtype 
1E° 1CE4 670 «WORD LONG" TO“WORD=1$ ; code for word dtype 
O40F * 1SE8 671 oW LONG. TO_LONG-1$ ; code for long dtype 
418 1CE 676 . ERR_BATTYPERR-1$ 3 quad not supported 
SFD' 1CEA 67 -WORD LONG_TO_FLOAT-1$ 3 code for float dtype 
7EE* ite ore «WORD LONG TO_DOUBLE-1$ 3; code for double dtype 
1CEE 67 
1B «02 a 91 SES $79 CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_G 
0 12. 1CF 678 BNEQ 
09DD =O s «51 ices 44 BRW LONG_TO_GFLOAT 
1c 02 as 91 1CF? 681 2s CMPB SCSB_DTYPE(R3), #DSCS$K_DTYPE_H 
0 12 1CFB 6 ¢ BNEQ 
oBCE 31 CFD 68) BRW LONG_TO_HFLOAT 
18 02 a3 91 1000 oa 3$ CMPB =: DSC$B_DTYPE(R3), #DSCSK_DTYPE_DSC 
0 12 1004 686 BNEQ 
53 O4A D0 1006 687 MOVL 4(R3), R3 ; R3 <-- addr of descriptor 
D1 1 1994 ? $ BRB LONG 3; CASE again on dtype in desc 
E3EB 31 DOC 690 4$: BRW ERR_DATTYPERR 
1D0F 691 
1D0F O36 3+ 
1DOF 69 ; Now type of source and destination arrays are known. Use the macro to 
4 one 3 3 generate the code for each case 


Se 


ee 
mgt se 


BASSMAT_SUB = subtract 2 arrays giving - 23 SEb- 13k 10; 34: $8 f 
100F 637 LONG_TO_BYTE: ‘tel 8 L. B 


AX/VMS 
BASRTL 


Seasn 


4-00 
ATSUB.MAR; 1 


Page 


9 


5) 


H 10 
| ae BASSMAT_SUB = subtract 2 arrays giving x" sat 1 96:39:68 cre NL SREIBA OA TSUB.MAR: 1 ea 2, 
3500 780 LONG_TO_WORD: S$BASSMAT_SUB Ll, W | 


HAR pg} BS SSS Be ET Tally oot 


GASSRAT SUB 
1-916 BASSMAT_SUB = subtract 2 arrays giving 


2DF 


5-SEP-19 
"23 P=19 


QF1 703 LONG_TO_LONG: © SBASSMAT_SUB LL 


86 {0: 


2:49 arb eng Macro v04-00 
1:08 EBASRTL. SRC JBASMATSUB.MAR; 1 


Page 


31 


(5) 


~ 


i 


ASSMAT_SUB 
16 


BASSMAT_SUB 


300 


= subtract 2 arrays giving g-$p =1982 4 9 3:68 


rhe LONG_TO_FLOAT: 


SBASSMAT_SUB LL, F 


AX/VMS 
BASRTL. 


cro 
RCIB 


BA 


vo 
SMA 


4-00 
TSuB. 


31 


or 8 


K 10 | 
BASSMAT_SUB 15-SEP-1984 $3330:68 arb ery Macro v04-00 Page 33 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 10:31:08 (CBASRTL.SRCIBASMATSUB.MAR; 1 (5). 


4D0 709 LONG_TO_DOUBLE: SBASSMAT_SUB L. D 
604 710 


16 BASSMAT_SUB = subtract 2 arrays giving "B78 Pa} 84 13:39:68 YENSRT  SRETBASHAT SOB. MAR: 1 


Z6D4 712 LONG_TO_GFLOAT: SBASSMAT_SUB LL, 6 
ce 71 


eam .% - AX/VMS 4-00 Page 34 
| 


BASSMAT_SUB = subtract 2 arrays giving Mer Seb | 382 93:39:68 BASRTL « SREIBASHATSOB.MAR: 1 


Z8CE 715 LONG_TO_HFLOAT: SBASSMAT.SUB —L, H 
ACB 716 


Pa 35 
” Ti 


| 


| N 10 | 
BASSMAT _SUB 15-SEP=1 AX/VMS ae cro V04-00 Pa 36 
1-016 BASSMAT _SUB 1984 9: 37:08 :08 (CBASRTL.S RCI BASMATSUB.MAR; 1 - (8) 


= subtract 2 arrays giving 6-SEP-1 


AC 71 : 
at 79 ; Source array is a floating array. Now differentiate on the destination type 
ACB 791° 
05 06 £02 A3 F 2AC 7 ¢ + tail CASEB DSCSB_DTYPE(R3), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCS$K_DTYPE_6> 
09 D' 2ACcD «723 1 .WORD FLOAT~TO_BYTE-1$ ; code for byte dtype 
E*' 2ACF 726 «WORD FLOAT_TO_WORD-1$ ; code for word dtype 
O4OF* 2AD1 725 «WORD FLOAT-TO-LONG-1$ ; code for long dtype 
bocd ADS 7? § «WORD ERR_DATTYPERR-1$ i quad not supported 
6 0° 2aD5 7 «WORD FLOAT_TO_FLOAT-1$ ; code for float dtype 
EE" na 4 8 WORD FLOAT-TO- DOUBLE-1$ ; code for double dtype 
ADo 730 
1B 0203 91 2Ad9) = 731 CMPB DSC$B_DTYPE(R3), #DSCSK_DTYPE_G 
03 12 2ADD 7 § BNEQ $ 
0900 (31 ADE 133 BRW FLOAT_TO_GFLOAT 
1¢ 02 A3 91 QAE2 735 28: CMPB DSC$B_DTYPE(R3), #DSCSK_DTYPE_H 
0 12 2AE6 £38 BNEQ $ 
oBcE 31 AEB 30 BRW FLOAT_TO_HFLOAT 
18 02 a3 91 2AEB 535 3$: CMPB =: OSCSB_DTYPE(R3), #DSC$K_DTYPE_DSC 
0 12 2AEF 740 BNEQ 4$ 
53 O4A DO 2AF1 741 MOVL 4(R3), R3 ; R3 <== addr of descriptor 
D111 ot rg BRB FLOAT 3; CASE again on dtype in desc 
D600 3831 AF7 744 4$: BRW ERR_DATTYPERR 
2AFA 745 
2AFA 746 i* 
CAFA 747 ; Now type of source and destination arrays are known. Use the macro to 
od Se ;_generate the code for each case 


BASSMAT_SUB 
1-016 


BASSMAT_SUB 
9 


B 11 


- subtract 2 arrays giving ants #9: 3:08 :08 


751 FLOAT_TO_BYTE: 
752 hes 


SBASSMAT_SUB FF, B 


AX/VMS 
BASRTL.S 


cro 
RCIBA 


v04-00 
BASMATSUB.MAR; 1 


Page 
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(5) 


BASSMAT_SUB 
1-016 


BASSMAT_SUB 


2ceB 
2EDC 


C 11 
15S 
= subtract 2 arrays giving bosep-19 


P36 FLOAT_TO_WORD: $BASS$MAT_SUB 


F, W 


42 
41 


3: 
0: 


5 
3 


2: 
1: 


4 
0 


9 
8 


VAX/VMS Macro V04-00 
CBASRTL.SRCJBASMATSUB.MAR; 1 


Page 


38 
(5) 


-—w 


BASSHAT_SUB 


—_—- OO 


om ys P-1984 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-19 3b 
ghoc 757 FLOAT_TO_LONG: hence ate Fe L 

CD 86758 


15:34:08 


AX/VMS Macro V04-00 Page 39 : 
BASRTL. SRE at BASMATSUB.MAR; 1 (5) 1 


E 11 
BASSMAT_SUB 15-SEP 
1-016 BASSMAT_SUB = subtract 2 arrays giving 6-SEP 


~138% 23:52:49 VAX/VMS Macro Page 40 
1984 10:31:08 
3508 760 FLOAT_TO_FLOAT: S$BASSMAT_SUB F, F 

BB A761 


v04-00 
BASRTL.SRCJBASMATSUB.MAR; 1 (5) 


BASSMAT_SUB 
1-016 


15-SEP-1984 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 


2BB += 763 FLOAT_TO_DOUBLE: SBASSMAT_SUB F, D 
4BF 764 


10:31:08 


AX/VMS Macro v04-00 
BASRTL.SRCIBASMATSUB.MAR; 1 


Page 


4 
( 


1 
5) 


mM 


G 11 | 
BASSMAT_SUB 5-SEP-1984 AX/VMS Macro V04-00 Pa 42 
mitt BASSMAT_SUB = subtract 2 arrays giving "BrSEb 18 4 9: 3:68 :08 (CBASRTL.SRCJBASMATSUB.MAR; 1 1s (3) 


34BE 766 FLOAT_TO_GFLOAT: SBASSMAT_SUB  F, 
689 76 


H 11 
"8 6 _ BASSMAT_SUB = subtract 2 arrays giving "% 
3689 168 FLOAT_TO_HFLOAT: SBASSMAT_SUB fF, H 


SEP= 
SEP= 


1982 40:34:68 


AX/VMS M 
BASRTL.S 


RIBAS 


04- 
MATSUB.MAR; 1 


row, 


111 
BASSMAT_SUB 15-SEP-1984 :52:49 VAX/VMS Macro V04-00 Page 44 
1-016 BASSMAT_SUB = subtract 2 arrays giving 3-SE p=} 984 93:3 :08 (CBASRTL.SRCIBASMATSUB.MAR; 1 . (5) 
B 72 3+ 
B 118 : Source array is a double array. Now differentiate on the destination type. 
Bs 775° 
0S 06 £02 A3-: & B ore DOUBLE: CASEB ODSCSB_DTYPE(R3), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
b BB 777 18: -WORD DOUBLE_TO_BYTE-1$ : code for byte dtype 
* S8BA ore -WORD DOUBLE_TO_WORD-1$ : code for word dtype 
41° 388C 77 . DOUBLE TO G-1$ ; code for long dtype 
C842 | 780 . ERR_DATTYPERR-1$ 3 quad not supported 
Baek. +3 781 -WORD DOUBLE_TO_FLOAT-1$ ; code for float dtype 
5 Hg 4 ¢ -WORD DOUBLE_TO_DOUBL-1$ 3; code for double dtype 
C4 784 
18 O2A 91 +74 785 CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_G 
0 1 a” FF $ BNEQ 
OA2E 3 Hh at BRW DOUBLE_TO_GFLOA 
1c 02 A 91 8CD es 2s CMPB Rycee_ot ure tas), #DSCSK_DTYPE_H 
0 \¢ 8D1 790 BNEQ $ 
0c23 3 +34 44! BRW DOUBLE_TO_HFLOA 
18 02 a3 91 3806 538 3$ CMPB =- OSC SB_DTYPE(R3), #DSCSK_DTYPE_DSC 
0 12 38DA 794 BNEQ 
53 O4A DO 38DC 795 MOVL 4(R3), R3 3 R3 <-- addr of descriptor 
D1 11 +34 re BRB DOUBLE ; CASE again on dtype in desc 
C815 31 38r 798 4$: BRW ERR_DATTYPERR 
8E 799 
8E5 800 ;+ ‘ 
8E5 a8) 3 Now type of source and destination arrays are known. Use the macro to 
$pE2 Ht 3; generate the code for each case 


BASSMAT_SUB = subtract 2 arrays giving Vries et 19; 39568 :08 
i Hie DOUBLE_TO_BYTE: SBASSMAT_SUB Dd, B 


AX/VMS M 
BASRTL «SR 


4 


Vv 
S 


04-00 
MATSUB.MAR; 1 


} 
| 


| 


Page 45 


od 


BASSMAT_SUB 
1-016 


BASSMAT_SUB 


3AEF 
3CF9 


- subtract 2 arrays giving 


1 = 
6-SEP-1984 


55-SEP-1984 $3:3¢: ] ae Macro V04-00 
10:31:08 CBASRTL.SRCJBASMATSUB.MAR; 1 


+34 DOUBLE _TO_WORD: SBASSMAT_SUB D, W 


| 
Page 46 | 
. (5) | 


pASSBAT. SUB 


Lt 11 
BASSMAT_SUB = subtract 2 arrays giving "378 : b=] 984 19; 343 $3 YBASRIL ae OAT SOB.MAR: 1 
30F9 gt DOUBLE_TO_LONG: SBASS$MAT_SUB 0, L | 


Page 


47 


(5) 


M11 
tae BASSMAT_SUB = subtract 2 arrays giving "328 Pa] 9RG 19; 343 $8 YOASKIL L.S E58 aMnA 7308.MAR:1 —- 8, 
$03 814 DOUBLE_TO.FLOAT: SBASSMAT_SUB D, F 


BASSMAT_SUB 
1-016 


15-SEP-1984 * $3 34:68 AX/VMS Macro Vv04-00 Page 49 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 10:31:08 CBASRTL.S RCIB BASMATSUB.MAR; 1 (5) | 


410D 817 DOUBLE_TO_DOUBL: SBASSMAT_SUB 0D, D 
42FB 86818 


BA 
1 


ASSMAT _SUB 
16 


15-SEP-19 
BASSMAT_SUB = subtract 2 arrays giving g-SEb= 1984 9: 37:68 :08 
42FB gg0 DOUBLE_TO_GFLOA: $BASSMAT_SUB 0D, G 
4479 = 821 


AX/VM 
BASRT 


A 


Vv 
S 


04-00 
MATSUB.MAR; 1 


ree 18, 


BRST TOO FST 


BASSMAT_SUB 
1-016 


G4F 3 
46F 4 
46F $ 
46F g 
46F 
46F 8 
05 06 02 A3_ BF 46F 9 GFLOAT: CASEB 
002d" 46t 0 1$: — .WORD 
0266 46FA 831 “WORD 
aiE* 4OFC  83¢ “WORD 
BAO? 46 “WORD 
0618" 470 4 “WORD 
M1" 47 5 “WORD 
4704 836 
1B 02 AS 91-4704 «837 CMPB 
03 12 4708 838 BNEQ 
09F9 31 470A 839 BRW 
4700 840 
1c 02 AZ 91 470D B41 28 CMPB 
03 12 4711 84g BNEQ 
OBEC 31 4713 84 BRW 
4716 B44 
18 02 A3 91 4716 845 38 CMPB 
06 12 471A 846 BNEQ 
53 04 A3 DO 471C = 847 MOVL 
D1 11 4720 «B48 BRB 
47ge B49 
B9DS 31 4722 850 48: —BRW 
4725 851 
4723 83g :+ 
4723 85 
4725 854 
4725 855 


15-SEP-1984 23:52:49 
BASSMAT_SUB = subtract 2 arrays giving a-SEp- 1986 19:34;68 
DOUBLE _TO_HFLOA: SBASSMAT_SUB 0D, H 


_10_FLOAT=-1$ 
AT~TO-DOUBL-1$ 


CS$B_DTYPE(R3), #DSCSK_DTYPE_G 
LOAT_TO_GFLOA 
C$B_DTYPE(R3), #DSCSK_DTYPE_H 
LOAT_TO_HFLOA 


(R3), R3 
LOAT 


ERR_DATTYPERR 


; generate the code for each case 


$B_DIYPE(R3), #DSCSK_DTYPE_B, 
YTE-{$ 


AX/VMS Macro v04-00 Page 51 
BASRTL.SRCJBASMATSUB.MAR; 1 (5) 


#<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
; code for byte dtype 

code for word dtype 

code for long dtype 

quad not supported 

code for float dtype 

code for double dtype 


C$B_DTYPE(R3), #DSCS$K_DTYPE_DSC 


; R3 <== addr of descriptor 
:; CASE again on dtype in desc 


: Now type of source and destination arrays are known. Use the macro to 


RNR ss e-store ene ——— 


D 12 
PASSAT _ SUB SEP=1984 23: 34768 AX/VMS Macro V04-00 Page 
1-016 BASSMAT_SUB = subtract 2 arrays giving "B7$b218 4 10:31:0 BASRTL. SR CBA BASMATSUB.MAR; 1 


$he2 TH GFLOAT_TO_BYTE: $BASSMAT_SUB G, B 


; 


—w 


estate 


o—_##_#_—_—_--——_---—-----—- 


12 
. 15-SEP- 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP- 
491 860 GFLOAT_TO_WORD: SBASS$MAT_SUB 
481 61 


— sess sees 


984 


10:34 08 


AX/VMS Ma 
BASRTL.SR 


cro V04-00 
CJBASMATSUB.MAR; 1 


Page 53 
- 


—@w 


481 
4D1 


BASSMAT_SUB 


7 
0 


15-SEP-19 
= subtract 2 arrays giving 6-SEP-19 


$63 GFLOAT_TO_LONG: SBASSMAT_SuUB G, 


coo 
- ee 


[ 


AX/VMS Macro V04- 


-o | 


00 
ASRTL.SRCIJBASMATSUB.MAR; 1 


ASSMAT 15-SEP-1984 23:52:49 VAX/VMS Macro V04-00 ~ Page 55 
wet -— BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 93:34:68 BASRTL.SRCJBASMATSUB.AAR; 1 . (5) 


4010 866 GFLOAT_TO_FLOAT: SBASSMAT.SUB  G, F 
4709 86 


H 12 
BASSMAT_SUB = subtract 2 arrays giving ve ioets 1 15:39:68 YOASRTL. SRE JBASMAT SUB. MAR: 1 wees 28, 
$588 £68 GFLOAT_TO_DOUBL: SBASSMAT_SUB 6G, D ; 


BASSMAT_SUB 
1-016 


15-SEP-19 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-19 


5106 872 GFLOAT_TO_GFLOA: SBASSMAT_SUB G, 
a : 


a Se 


3 
0: 


VAX/VMS Macro v04-00 
CBASRTL.SRCIJBASMATSUB.MAR; 1 


Page 


(5) 


06 


18 


1¢ 


18 
53 


—FNMOUUINIOONO ON "900 


; 
: 
2 
2 
5 
5 
5 
5 
5 
5 


Perr 


J 12 
15-SEP-1984 $3: 39:63 AX/VMS Macro v04-00 B 
= subtract 2 arrays giving 6-SEP-1984 :08 CBASRTL.S RCIB BASMATSUB.MAR; 1 


i GFLOAT_TO_HFLOA: SBASSMAT_SUB G, H 
ar 3 
4 ; Source array is a hfloat array. Now differentiate on the destination type. 
0 oO 
1 HFLOAT: CASEB DSCS$B_DTYPE(R3), MDSCSK_DTYPE_B8, #<DSC$K _DTYPE_D = DSCS$K_DTYPE_8> 
3 1$: .WORD HFLOAT_TO_BYTE-1$ : code for byte dtype 
; WORD HFLOAT_TO_WORD-1$ 3 code for word dtype 
4 HFLOAT_TO_LONG-1$ ; code for long dtype 
5 -WORD ERR_DATTYPERR-1$ ¢ quad not supported 
36 «WORD HFLOAT_TO_FLOAT-1$ : code for float dtype 
#4 «WORD HFLOAT_TO_DOUBL-1$ ; code for double dtype 
Het CMPB DSCSB_DTYPE(R3), M#DSCSK_DTYPE_G 
90 BNEQ 
83 BRW HFLOAT_TO_GFLOA 
3 2$ CMPB SCSB_DTYPE(R3), #DSCSK_DTYPE_H 
894 BNEQ 
895 BRW HFLOAT_TO_HFLOA 
897 3$: CMPB DSCSB_DTYPE(R3), #DSCSK_DTYPE_DSC 
98 BNEQ 4$ 
99 MOVL Ae R3 3; R3 <-- addr of descriptor 
itt BRB HELO 3; CASE again on dtype in desc 
902 4$: BRW ERR_DATTYPERR 
30 


4 3+ 
905 : Now type of source and destination arrays are known. Use the macro to 
9 $3 3 _generate the code for each case 


K 12 | 
BASSMAT_SUB 15-SEP-1984 $339! 9 VAX/VMS Macro V04-00 Page 59 | 
1-016 BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 10:31:08 (BASRTL.SRCJBASMATSUB.MAR; 1 (5) 


5534 909 HFLOAT_TO_BYTE: $BASSMAT_SUB  H, B 
5720 910 


BASSMAT_SUB = subtract 2 arrays giving :* a pe at 3: 343 $8 YBASRTL.S BAS SMATSUB. MAR; 1 ( 


12 
BASSMAT. SUB ‘ AX/VMS v04-00 Page 60 
5720 913 HFLOAT_TO_WORD: SBASSMAT_SUB =H, W : 


Yo 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1 


M12 | 
SEP-1984 AX/VMS Macro V04-00 p 61 
3B2 18; 34:8 708 (CBASRTL.SRCJBASMATSUB.MAR; 1 hin (5) 


4 5 HFLOAT_TO_LONG: SBASSMAT_SUB H, L 


| 
15-SEP-1984 23: AX/VMS Macro V04-00 Pa 62 
BASSMAT_SUB = subtract 2 arrays giving 6-SEP-1984 tf £34508 :08 (CBASRTL.S RCJBASMATSUB.MAR; 1 - 3) 


SBIF 918 HFLOAT_TO_FLOAT: SBASSMAT_SUB  H, F | | 
5018 919 


a 


1 
‘o 15-SEP=1 4 $3: 3: 49 YAS/ ys Be o v04-00 Page $3 

BASSMAT_SUB = subtract 2 arrays giving g-8e P=1984 :0 BASRTL.SR SBASMATSUB. MAR; 1 (5). 

H 


p18 3s! HFLOAT_TO_DOUBL: S$BASSMAT_SUB 0 
Fit Sea 


BASSMAT _SUB 


BASSMAT_SUB 
bi z 


BASSMAT_SUB 


5F11 
6111 


13 
15~SEP=1984 
= subtract 2 arrays giving 6=-SEP-1984 


924 HFLOAT.TO_GFLOA: SBASSMAT_SUB H, G 


3:52:49 VAX/VMS Macro Vv04-00 
13:87:66 YOnShTe. SReSSaLet Toe mans? 


64 
(5) 


-o | 


15-SEP-1984 23:52:49 VAX/VMS Macro Vv04-00 Page 65 
BASSMAT_SUB = subtract 2 arrays giving b-sfb-495¢ £3:39 6g BASRTL.SRCIBASMATSUB.MAR; 1 ° (5) 
6111 937 HFLOAT_TO_HFLOA: S$BAS$MAT_SUB H, H 


6300 9 


f 


E 13 


BASSMAT_SUB 15-SEP-1984 :52:49 VAX/VMS Macro V04-00 Page 
mites BASSMAT_SUB = subtract 2 arrays giving gasep-}984 10:3 :08 ([BASRTL.SRCIJBASMATSUB.MAR; 1 ’ $8) 
630D 930 ;+ 
? op i ; Subtract has been in byte. Determine destination type to convert to dest. 
6300 9 : 
6 4 934 DEST_CASE 8: 
56 SA go 630D 935 MOVL R10, R6 3 save original pointer 
05 06 02 A6 F 6 9 G § 5$: CASEB DSC$B_DTYPE(R6), #OSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
te o3! 937 1$: -WORD STORE BYTE-1$ 3 no conversion needed 
7A‘ 6317 938 «WORD DEST_B_TO_wW-1$ ; code for word dtype 
0389° 6319 939 «WORD DEST. B TO L-1$ ; code for long dtype 
9DES 6318 940 «WORD ERR _BATTYPERR-1$ 3 quad not supported 
“yy e310 941 «WORD DEST .6.10.F i$ ; code for float dtype 
5a7' eat 306 -WORD DEST_B_TO_D-1$ ; code for double dtype 
1B 02 A6 91 6381 944 CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
03 12 o3 5 945 BNEQ ees bi 
0701 31 oii 348 BRW DEST_B_TO_G 
i 
1c 02 a6 «(O91 e354 948 2$ CMPB = OSCSB_DTYPE(R6), #DSCSK_DTYPE_H | 
0 12 Seek 949 BNEQ 3$ 
0810 31 e333 aay BRW DEST_B_TO_H 
18 02 a6 91 633 93¢ 3$ CMPB sd DSCS$B_DTYPE(R6), #DSCSK_DTYPE_DSC | 
06 i 6337 95 BNEQ 4$ 
56 04 A6 DO 6339 954 MOVL 4(R6), R6 3 R6 <-- addr of descriptor 
* ae oeee o22 BRB 5$ 3; CASE again on dtype in desc 
9088 31 633F 3e9 4$: BRW ERR_DATTYPERR 
634 958 
634 959 3+ 
o3¢ ace 3; Subtract has been in word. Determine destination type to convert to dest. 
634 96 
634 9635 DEST_CASE_W: 
56 SA D0 634 64 VL R10, R6 3 save original pointer 
05 06 02 A6 ef 634 65 5$: CASEB psc $s DTYPE(R6), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D - DSCSK_DTYPE_8> 
0136' one 966 1$: -WORD DEST_Q 10 B-1$ 3 code for byté dtype 
oer 634C 967 -WORD STORE QoRrB-1$ 3 No conversion needed 
0359" 634 968 «WORD DEST OL- ; code for long dtype 
ies 6350 969 -WORD ERR _BATTYPERR-1$ 3 quad not supported 
0468' 6352 970 -WORD DEST_W_TO_F-1$ ; code for float dtype 
0584" Oe2e 4 «WORD DEST_W_TO_D-1$ ; code for double dtype 
1B O2A 91 0328 338 CMPB SCSB_DTYPE(R6), #DSCSK_DTYPE_G 
0 12 635A 974 BNEQ $ 
06D2 = 31 oeee af? BRW DEST_W_TO_G 
1c 602A 91 gaa 399 23: CMPB RSCSB_OTYPE (RG), #OSCSK_DTYPE_H 
0 12 6363 378 BNEQ $ 
O7E1 31 e368 +44 BRwW DEST_W_TO_H 
18 0206 91 6 $s 981 5$: CMPB =: OSCSB_DTYPE(R6), #DSCSK_DTYPE_DSC 
06 i 636 9 ; BNEQ : 
56 04 A6 00 6 $f 9 MOVL 4(R6), R6 ; R6 <== addr of descriptor 
D111 ° t¢ : BRB 5$ ; CASE again on dtype in desc 
9083 —s« 31 rte 986 4$: BRW ERR_DATTYPERR 


OPEL LLL LL LUL(El(OlOMW_OlOWUOlOMWOlOMWOMN COOOL Co COCO COC COC C—— Kr ZT TOOT CL LOO OOOOOORMRAw MAI Nsw MN wo 


_BASSHAT_ SUB 
1-016 


05 


05 


F 13 


15-SEP-1984 23:52:49 VAX/VMS Macro Vv04-00 Page 7 
BASSMAT_SUB = subtract 2 arrays giving g-SEp-1 984 19:34:68 BASRTL.S RCIB BASMATSUB.MAR; 1 . ts 
6377 987 
6377 $88 3+ 
° of 334 ; Subtract has been in long. Determine destination type to convert to dest. 
6377-991 
6377 336 DEST_CASE_L: 
56 SA g0 6377 99 atts R10, R6 esc" spinel poin 
06 02 A6 F 637A 994 5$: CASEB DSC$B_DTYPE(R ), MDSCSK_DTYPE ym * weDSesK DIYPE_D = DSeSk _DTYPE_8> 
0196, 637F 995 18: WORD DEST_C_TO_B-1 : code for byté dtype 
15° 6381 44 eWORD DEST_L_ TO W-1$ 3; code for word dtype 
034E* 6383 99 -WORD STORE_CONG-1$ 3 No conversion needed 
84 o383 338 «WORD ERR_DATTYPERR-1$ 3 quad not supported 
0438' 6 99 «WORD DEST_L_TO_F-1$ ; code for float dtype 
0561° ttt 1900 «WORD DEST _L_TO_D-1$ ; code for double dtype 
18 O2A 91 e385 1388 CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
0 12 638F 100 BNEQ 2$ 
06A3 31 O33) Re BRW DEST_L_TO_G 
1C 02 AB 91-6394 1006 2s CMPB =: DSCSB_DTYPE(R6), #DSCSK_DTYPE_H 
03 12 6398 100 BNEQ 3$ 
0782 31 639A 1008 BRW DEST_L_TO_H 
18 02 A6 91 639D 1010 38 CMPB = DSCSB_DTYPE(R6), #DSCSK_DTYPE_DSC 
06 12 63A1 1011 BNEQ 4$ 
56 04 A6 DO 63A3 1oig MOVL 4(R6), R6 3 R6 <== addr of descriptor 
ee | oehe a BRB 5$ ; CASE again on dtype in desc 
9D4E 31 63A9 1015 4$: BRW ERR_DATTYPERR 
63AC 1016 
63AC 1017 3+ 
esac 1313 3 3; Subtract has been in float. Determine destination type to convert to dest. 
63AC 1960 
63AC 18 1 DEST_CASE_F: 
56 SA DO 63AC 1 $5 MOVL R10, R6 ve original pointe 
06 02 A6 8F 63AF 135 5$ CASEB osc$B DTYPE(R6), #DSCSK_DTYPE_B, * #2DSCSK _DIYPE_D = DSCSK _DTYPE_B> 
9006; 6384 1024 1$ -WORD DEST ee TO_B-1$ 3: code for byte dtype 
1E5* 6386 1025 WORD DEST-F-TO_W-1$ 3; code for word dtype 
O2F4" 6388 1026 -WORD DEST-F-TO-L-1$ ; code for long dtype 
9046 63BA 1027 -WORD ERR _BATTYPERR-1$ 3 quad not supported 
pees. 63BC 1028 . WOR STORE_FLOAT- “13 3 no conversion needed 
053E' e BF 19 ; WORD DEST_F_TO_D-1$ 3; code for double dtype 
1B 02 ag 91 $368 1031 CAPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
9 12 63C4 1 3 BNEQ 2$ 
0674 31 o3c6 : 3 BRW DEST_F_TO_G 
1¢ 02 ag 91 63C9 1936 2$: CMPB RSCER_DTVPE AG), #DSCSK_DTYPE_H 
g 12 63CD 10 § BNEQ 
0783 = 31 ? cf ' BRW DEST_F_TO_H 
18 02 A6 91 63D 1 3 3$: CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_DSC 
06 is ° D6 1040 BNEQ 4$ 
56 04 A6 OD D8 1041 MOVL 4(R6), R6 3 R6 <== addr of descriptor 
- - ae rts ' 4g BRB 5$ ; CASE again on dtype in desc 


8 
S 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
M 
Ss 
$s 
$ 
$ 
$s 
S$ 
Ss 
Ss 
$s 
$s 
Ss 
Ss 
U 
W 
W 
W 
‘a 
W 
w 
W 


06 


18 


18 
56 


56 
06 


18 


1¢ 


18 
56 


= subtract 2 arrays giving 6-SEP-19 
44 4$: BRW ERR_DATTYPERR 


SRR RE PEPE EE PW 
a 
bed 


PARADA AAA AA AAA AAA AAAAAA AA AAAA AA AAO 


DEST_CASE_G: 
MOVL 


Fad at et et ee ak ek ee 


BERERRLES 


—DOCOGOOOSOSOSGOSGOOOSSOOOSOSSSOSSOSOSSSOOSOOSOOOSOOOOOOOSO OOOO OOOOOO 


DOOOO OOO OO 0000060 69 69 09 69 0969 69 SI SIN NN SNS RPA A AAA AAA MMIII a 


SOONA MAE WIN $9 ODA NE WIN  O OD NIAMS WN 0 ODNA UE WIN SO ODNOUS WN 


aa i a a kk a td = = = = = 3 8 = ot ot = = 8 = 8 2 2 2 = 2 a St = 


-9-0 W0 wo 
—0OnN— =r =r 


AX 
RoR 
Ss 


04-00 Page 68 


15-SEP-1984 23:52:49 VAX/VMS Macro V 
H 93:34:08 L.SRCJBASMATSUB.MAR; 1 (6) 


4 BASRT 


3¢ 
; Subtract has been in double. Determine destination type to convert to dest. 
DEST_CASE_D: 
MOVL R10, R6 3 Save original pointer 
5$: CASEB 0SC$B DTYPE(R6), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_8> 
1$: -WORD DEST_B_TO_B-1$ ; code for byté dtype 
-WORD DEST_D_TO_W-1$ ; code for word dtype 
eWORD DEST_D_ TO L-1$ ; code for long dtype 
-WORD ERR_BATTYPERR-1$ 3 quad not supported 
-WORD ODEST_D Foi ; code for float dtype 
-WORD STORE_BOUBLE-1$ 3 Mo conversion needed 
CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_G 
BNEQ es 
BRwW DEST_G_TO_D 
2$ CMPB DSCSB_DTYPE(R6), #DSCSK_DTYPE_H 
BNEQ 3$ 
BRW DEST_D_TO_H 
3$ we PSCSB_OTYPE (RG), #DSCSK_DTYPE_DSC 
MOVL 4(R6), R6 3 R6 <== addr of descriptor 
BRB 5$ : CASE again on dtype in desc 


BRW ERR_DATTYPERR 


2° 
; Subtract has been in gfloat. Determine destination type to convert to dest. 


R10, R6 ; save original pointer 
5$ CASEB DSC$B_DTYPE(R6), #DSCSK_DTYPE_B, #<DSC$K_DTYPE_D = DSC$K_DTYPE_B> 
1$ -WORD DEST_6_TO_B-1 ; code for byte dtype 
-WORD DEST_G_TO_W-1 ; code for word dtype 
eWORD DEST GTO L-1 : code for long dtype 
WORD ERR_BATTYPERR-1$ ; Quad not supported 
«WORD DEST_G_TO_F- 3 code for float dtype 
eWORD DEST_G_TO_D-1$ 3; code for double dtype 
CMPB BSCEO_DTYPE (RG), #DSCSK_DTYPE_G 
BNEQ $ 
BRW STORE _GFLOAT 
2s CMPB RSCSB_DTYPE (RG) . #OSCSK_DTYPE_H 
BNEQ $ 
BRW DEST_G_TO_H 
3$ owe P5CSS_OTVPE CRG). #DSCSK_DTYPE_DSC 
MOVL 4(R6), R6 ; R6 <= addr of descriptor 
BRB 5$ ; CASE again on dtype in desc 


tal’ dial | =<Boe 1A TA Doe i 


2 «== & of 6 


—_—_—_—_—_—————————————_ 


H 13 
BASSMAT_SUB 15 
1-016 BASSMAT_SUB = subtract 2 arrays giving 6S 
6448 1101 
OCAF 31 6448 11 ; 4$: BRW ERR_DATTYPERR 
gb HS 
6448 1105 : Subtract has been in hfloat. 
gece 1109 
4B 1108 DEST_CASE_H: 
56 SA 00 6448 11 OVL R10, R6 
05 06 02 A6 er b44e 1110 5$: CASEB DSC$B_DTYPE(R6), 
00 8: 6453 1111 1$: <WORD DEST_A_T0_6-1 
O16 ' 6433 1118 “WORD DEST"H~TO-W-1 
2 $' 6457 111 “WORD DESTTH~TO"L-1 
9CA7 6459 1174 “WORD ERR_BATTYPERR-1$ 
0385" 6458 1115 “WORD DEST_H_TO_F-1 
04E1' 6450 1116 “WORD DEST-H~T0~D-1$ 
1B 02 A 1 64 5F 1118 cpp DScSB DTYPE(R6) 
OSF2 31 gi63 13 BRW DEST_H_T0_G 
1c (02 ag 1 6468 1 ; 2$: CMPB DSCSB_DTYPE(R6), 
0705 «31 b46F 1194 BRW STORE_HFLOAT 
18 02 a6 1 6471 1196 3$: cpp DSC$B_DTYPE(R6) 
56 04 A6 «DO 6477 1128 MOVL  4(R6), R6 
D111 6478 1 ; BRB 5$ 
9C7A 31 6470 1131 4$: BRW ERR_DATTYPERR 
6480 1138 DEST_W_T0_B: 
50 50 33 648 1134 cOTWB RO, RO 
2a «11 «6483-1135 STORE _BYTE 
gee 1139 DEST_L_T0_B: 
50 50 £6 6485 1138 CVTLB RO, RO 
25 11 6488 1139 BRB STORE _BYTE 
648A 1141 DEST_F_T0 B: 
50 50 48 648A 1148 cOTFe RO, RO 
20 11 648D 1143 STORE _BYTE 
ro SR TS O50. a8 
50 OC AD 00 64 He? ROVL AT sive FPCEP), 
00000000 ' GF 1 6496 1148 GBASSSS CRLE 
50 BE 50 67 649C 114 oT a d3.—sRO, Leon 
50 50 68 64A0 1150 CVTDB 
OA 11 4A 1131 BRB nO 
6445 11 § DEST_G_T0_B: 
50 50 48FD 64A5 1154 CVTGB RO, RO 
4 «(11 S4A9 1135 BRB STORE _BYTE 
64AB 1183 DEST_H_10_B: 


71986 10:39:08 


MDSCSK_DTYPE_B, "#<DSCSK D 


Sete Ge Se Se Se 


, #DSCSK_DTYPE_G 


#DSCS$K_DTYPE_H 


« #DSCSK_DTYPE_DSC 


RO 


AX/VMS Mac 
BASRTL.SR 


cro V04-00 Page 69 
CJBASMATSUB.MAR; 1 (6) 


Determine destination type to convert to dest. 


ave or ifyeee point 
YPE_D = DSCSK _DTYPE_B> 

; code for byte dtype 

code for word dtype 

code for long dtype 

quad not supported 

code for float dtype 

code for double dtype 


R6 <-- addr of descriptor 
CASE again on dtype in desc 


convert 
go store 


convert 
go store 


convert 
go store 


‘save double 


pass FP to get scale 
et scale in RO & R1 
escale for dest 
convert to byte 

go store 


convert 
go store 


cot 
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BASSMAT_SUB 15-SEP-1984 :52:49 VAX/VMS Macro Vv04-00 Page 70 
mitt BASSMAT_SUB = subtract 2 arrays giving  6-SE 71984 99:34308 BASRTL.SRCJBASMATSUB.MAR; 1 . (6) 
50 50 68FD 64AB 11 CVTHB RO, RO 3; convert 
64AF 1138 ; fall into store 
51 SAO SAAR THEE een onto. at inter to dest descri 
e : pointer to dest descriptor 
52 O8 AE DO 648 1196 MOVL Lower_bnd1+4(SP), R2 3 Current row (extra tongvord 
3 om Ge He | wnat. as ook Gee 
° : current column 
28 AE 26 88 en 1392 . MOVB RO, DATA+4(SP) 
648D 1189 3; Redefine the following offsets for the call to the STORE macro. The 
648D 1108 3; BSBW to here added 4 to the stack. 
64BD 118 = 
64B8D 1170 
00000020 6480 1171 value desc_= 32 
00000020 648) 11%6 str_len = 32 
000000 § 64BD 1173 dtype = 34 
000000 648D 1174 class = 35 
00000024 64B8D 1175 pointer = 36 
00000028 648D 1176 ata = 
att} 1198 STORE B t 
3 store 
658E 1179 ;+ 
658E 1180 ; Restore the following offsets. 
658E 1181 ;- 
658E 1186 
0000001C oate a value_desc = 28 
0000001C 658E 1184 str_lén = 28 
OOOOOOIE 658E 1185 dtype = 30 
QO00001F 658E 1186 class = 31 
seats 658E 1187 pointer = 32 
00000024 658E 1188 data = 
658E 1189 
05 658€ 1190 RSB 3 go continue loop 
658F 1191 
658F 1198 DEST_B_TO_w: 
50 50 99 658F 119 CVTBw RO, RO 3 convert 
2A 38611 «36592 «1194 BRB STORE _WORD 3; go store 
6594 1195 
6594 1138 DEST_L_TO WwW: 
50 50 F7 6594 119 CVTLw = RO, RO : convert 
25 11 6597 1198 BRB STORE _WORD > go store 
6599 1199 
6599 1200 DEST_F_TO w: 
50 50 49 6599 1201 CUTFw RO, RO : convert 
20 11 659¢ 1 : BRB STORE _WORD ; go store 
659E 1 
659E 1 04 DEST_D_TO_W: 
7E 50 70 659E 1205 MOVD RO, -(SP) 3 save double 
50 AD DO 65A1 1 06 MOVL  SFSL_SAVE_FP(FP), RO : pass FP to get scale 
00000000 ' GF 6 65A5 1 8 JSB G*BASSS$SCALE_R1 : get scale in RO & RI 
3 50 67 65AB 1208 DIVD3 RO, (SP)+, RO ; descale for dest 
5 50 $9 65AF 1209 CVTOW 3 convert to word 
OA 11 6382 10 BRB STORE _WORD : go store 
geBe 1 \¢ DEST_G_TO WwW: 
50 50 49FD 6584 121 CVTGwW =6RO, RO z convert 
04 11 6588 1214 BRB STORE _WORD ; go store 
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BASSMAT_SUB 7 4 23: AX/VMS v04-00 1 
mitts BASSMAT_SUB = subtract 2 arrays giving 6-S Pa} 984 9; 34:68 708 (CBASRTL.S BRE BASMATSOB.MAR: 1 a (6) 
g2B4 i 2 DEST_H_TO a | 
50 50 69FD e58a } 2 “* COTH RO, RO 3 gonyert 
ss ee g2ee : 8 sone 0H R10, R1 saat d i 
. : t t t t 
52-08 AE D0 3c] 1221 MOVL Lower _bnd1+4(SP), R2 ; Current row (extra Longvord 
53 5B D0 BSCS 1998 MOVL RIT, RB current column 
: curren 
28 680 65¢8 1284 MOVW —— RO, "DATA+4(SP) ahaa smpesaaat 
65cc 1 $i - Redefine the fol loujng offsets 9 the call to the STORE macro. The 
65c¢C 1 BSBW to here added 4 fo the stack 
get 1898 
00000020 65CC 1230 valued = 32 
0900003 @5CC 1981 strlen =. 
000000 65CC 1 3 type = 
000000 65CC 1233 class = 35 
00000024 65C€C 1234 pointer = 36 
00000028 oace \S3? data = 40 
O26k 1237 STORE wW 3; store 
669D 1239 : Restore the following offsets. 
S38 1848 
0000001C 669D 1 8 value_desc = 28 
000001C 669D 1243 str_lén = 2 
QOOOOOIE 669D 1244 dtype = 
e's oa Sa 2898 1245 class = 31 
44 4h 69D 1 re pointer = 32 
00000024 $638 ! : ta = 
05 2990 1348 RSB 3; go continue Loop 
669E 1251 DEST_B_TO_L 
50 50 98 669E 1 26 coTéL RO, RO 3 convert 
2Asi1 ery ! 2? STORE_LONG ; go store 
geh3 1255 DEST_W_TO_L 
50 650 $4 66A35 1 2$ cot WL =6RO, RO 3 convert 
2.—Ci‘Mu ooh ! : STORE _LONG 3 go store 
6A8 1 5 DEST_F_TO_L: 
50 50 4A 66A8 1 $0 CUTFL RO, RO 3: convert 
20 «11 66AB 6 BRB STORE _LONG ; go store 
66AD 1 8 DEST_D_TO_L: 
»* 70 66AD 1264 mOVD (SP) 3 save double 
OC A DO 6680 1265 MOVL ere. SAVE thth RO 3 pass FP to get scale 
, 96009000" Gr 6 66B4 1 66 JSB G*BAsEss CALE 3 get scale in RO & RI 
3 6 oean 126 DIVD3 RQ. t P)+ my ae : descale for dest 
0 6A rea] 1 08 CVTDL «RO, R 3 convert 
A 11 6¢ 6 BRB iol sens ; go store 
rete: 1 9 DEST_G_TO_L: 
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BASSMAT_SUB 15-SEP-1984 : AX/VMS Macro Vv04-00 Page 72 
1-016 BASSMAT_SUB = subtract 2 arrays giving Fat et 9 93:39:68 :08 (CBASRTL.SRCIBASMATSUB.MAR; 1 “ (6) 
50 50 4AFD 66C3 127 CVTGL RO, RO : convert 
06 = «11 pete } 78 BRS STORE_LONG i go store 
66C9 1275 DEST_H_TO_L: 
50 50 6AFD 66C9 1 4 COTHL RO, RO 3 convert 
66CD 127 : fall into store 
66CD 1 8 
66CD 1279 STORE_LONG: 
5A DO 66CD 1280 MOVL R10, R1 3; pointer to dest descriptor 
52 O08 AE DO 6600 1281 MOVL Lower_bnd1+4(SP), R2 i current row (extra longword 
6604 1 ¢ 3 on stack for jsb) 
53 8 D ty 1 MOVL R11, R3 3; current column 
28 AE 0 oO yea : Se ‘ MOVL RO, DATA+4(SP) 
66D0B 1 86 : Redefine the following offsets 6 the call to the STORE macro. The 
6608 1287 ; BSBW to here added 4 to the stack 
660DB 1288 ;- 
6608 1289 
0000 00s8 6608 1290 value desc = 32 
000000 66DB 1291 str_lén = 32 
aia: 6608 1 35 atyse = 34 
000000 6608 1293 class = 
Sons 66DB 1294 pointer = 36 
00000028 66DB 1295 data = 40 
66DB 1 36 
6608 129 STORE L 3; store 
67AC 1298 ;+ F 
67AC 1299 ; Restore the following offsets. 
67AC 1300 ;- 
67AC 1301 
0000001C 67AC 1306 value_desc = 28 
0000001C 67AC 1305 str_lén = 
QOOOO01E 67AC 1aee dtype = 
OOOO001F 67AC 1305 class = 31 
Hs 4h 67AC 1306 pointer = 32 
00000024 67AC 1307 data = 
7AC 1308 
05 67AC 1309 RSB 3 go continue loop 
67AD 1310 
67AD 1311 DEST_B_TO F: 
50 50 4C 67AD 1 1 CVTBF = RO,,_- RO 3 convert 
2A 11 6780 131 BRB STORE _FLOAT ; go store 
678 1314 
67B2 1315 DEST_W_TO F: 
50 50 4D 67B2 1 sviur RO, RO 3; convert 
25 11 6785 131 STORE_FLOAT : go store 
6787 1318 
6787 1319 DEST_L_TO F: 
50 50 4€ 6787 1320 cute F RO, RO 3 convert 
20 «11 678A 1 STORE_FLOAT : go store 
678C 1 5 DEST_D_TO_F 
7E 50 70 67BC 1324 MOVD 3; save double 
50 9 AD DO 67BF 1325 MOV ve Pe” sete FBCEP). > pass FP to get scale 
9000 000° GF 6 ort 1 § JSB at : get scale in RO & RI 
5 0 67c9 1 Div D3 Bee ft 3; descale 
6 67CD 1328 CVTIDF = RO, 3 convert 
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| 16 BASSMAT_SUB = subtract 2 arrays giving _ EP=1984 BASRTL.SRC JBASMATSUB.MAR; 1 
OA 11 67D 1329 BRB STORE _FLOAT 3; go store 
oe 
50 50 33FD 67D2 1 § “" COTGF RO, RO 3 convert 
06°11 670 ; BRB STORE_FLOAT ; go store 
67D8 1355 DEST_H_TO_F: 
50 50 F6FD 6708 1 § CUTH RO, R0 : convert 
670C 1 3 fall into store 
67D0C 1338 
67DC 1339 STORE_FLOAT: 
ae 8 67DC 1340 MOVL R10, R1 3 pointer to dest descriptor 
52 O8 AE OD o70F ! rf MOVL Lower_bnd1+4(SP), R2 F current feu ‘quste lLongword 
3 on stack for js 
53 5B 0 grER 1 rk MOVL R11, R3 3; current colunh 
28 AE 50 6550 gree ! ze ie MOVF RO, DATA+4(SP) 
67EA 1 23 Redefine the follouine offsets Hg the call to the STORE macro. The 
67EA 134 BSBW to here added 4 to the stack 
67EA 1348 :- 
67EA 1349 
00000020 67EA 132) ve value_desc = 32 
00000020 67EA 1351 str_lén = 32 
000000 ¢ 67EA 1326 dtyse : 
000090 67EA 13535 class = 35 
00000024 67EA 1354 pointer = 36 
00000028 67EA 1355 data = 40 
67EA 1326 
67EA 135 STORE F 3; store 
6888 1328 g¢ . 
68BB 13559 ; Restore the following offsets. 
688B 1360 ;:- 
6888 1361 
0000001C ores 1 6¢ value_desc = 28 
Q0000001C 6 13635 str_lén = 28 
QOOOO0O1E 6888 1364 dtype = 30 
Q000001F 6888 1365 class = 31 
S44 9 6888 1 96 pointer = 32 
00000024 6888 136 ta = 
688B 1368 
05 6888 1369 RSB 3: go continue loop 
68B8C 1370 
68B8C 13571 DEST_B_T0O_D: 
7E 0 +5 oaet 1 4 core BD RO, -(SP : save double 
50 OC AD OD F 137 SFSL_ Save FPCEPD, RO > pass FP to get scale 
00000000'GF 16 6 C3 1374 mee GRASS ALE : get scale in RO & RI 
50 E 64 68C9 1375 MULD2 (SP)+ : scale for dest 
11 ? cs : 6 BRB STORE ‘DOUBLE ; go store 
cE 1 8 DEST_W_TO D 
7E 6D cf 137 cot wD -(SP) : save double 
50 OC AD 00 6801 1380 OVL  SFS$L_SAVE FECEP), RO > pass FP to get seal ¢ 
eet: ad 16 DS 1381 mee Raya t CALE : get scale in RO&R 
50 E 64 DB 1 ¢ MULD2 (SP)+ att ; scale for dest 
11 ? e ! Z BRB STORE “DOUBLE ; go store 
68E0 1385 DEST_L_T0_D: 
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BASSMAT_SUB 15-SEP-1984 23:52:49 VAX/VMS Macro Vv04-00 Page 74 
mitt BASSMAT_SUB = subtract 2 arrays giving g-SEp-1 984 19:34308 BASRTL.SRCJBASMATSUB.MAR; 1 . (6) | 
7E 50 6€ 68E0 1 § CVTLD RO, =(SP) 3 save double 
50 OC AD DO 6863 1 OVL SFL SAVE FP(FP), RO : pass FP to get scale 
Q00000000'GF 16 68E7 1 8 $B G*BASSSSCALE_R1 i get scale in RO & R1 
50 3 64 68ED 1 MULD2 (SP)+, R ; scale for dest 
5 11 ° : ! ay RB STORE DOUBLE 3; go store 
68F2 1 3 DEST_F_TO_D: 
a 6 CU 56 68F2 139 COTFD =6RO, =(SP) 3; save double 
50 of AD DO 68F5 1394 MOVL SFS$L_SAVE_FP(FP), RO 3; pass FP to get scale 
00000000'GF 16 68F9 1395 JSB G*BASSSSCALE_R1 ; get scale in RO & R1 
50 64 68FF 1 38 MULD2 (SP)+, R ; scale for dest 
00000000'GF 16 6908 139 JSB G*MTHSDINT_R4 : integerize 
41 11 e306 } 38 BRB STORE _DOUBCE i go store 
eona 1491 DEST_G_10,0: 
2404 1708 3 Note the intermediate conversion to hfloat. 
E 2g DO 690A 1404 MOVL Ree -(SP) ; save regs which CVTGH 
, DO 690D 1405 MOVL R3, -(SP) ; will destroy 
50 50 56FD 6910 1406 CVTGH RO, RO ; cvt gfloat to hfloat 
43 50 F7FD 6914 1407 CVTHD RO, =-(SP) 3 cvt to desired double | 
2B BS Sik eh Ra Sg Sag 
j 
50 ,,0C AD DO SIE 1410 OVL.  SFSL_SAVE_FPCFP), RO ; pass FP to get scale | 
50 E 64 69 1411 MULD2 (SP)#, RO 3 scale 
7E 54 00 6925 116 OVL R4, =(SP) 3 save R4 
00000000 ' GF 16 6928 141 JSB G*MTHSDINT_R4 ; integerize 
54 3 DO ooee 1414 MOVL (SP)+, R4 3 restore R4 
001 31 path 1317 BRW STORE _DOUBLE 
6934 1417 DEST_H_TO_D: 
F7FD 6934 1418 CUTHD RO, -(SP) ; save double 
50 OC AD DO 6938 1419 MOVL  SFSL_SAVE_FP(FP), RO ; pass FP to get scale | 
00000000'GF 16 693C 1420 JSB G*BASSSSCALE_R1 3 get scale in RO & R1 
50 E 64 6942 1421 MULD2 (SP)+, RO : scale for dest 
00000000'GF 16 69453 14 @ JS8 G*MTHSDINT_R4 ; integerize | 
6948 1424 STORE_DOUBLE: : 
52. SA DO 6948 1425 MOVL R10, R2 : pointer to dest descriptor 
53 O08 AE DO 694E 14 $ MOVL lLower_bnd1+4(SP), R3 ; current row (extra longword 
6952 14 : on stack for jsb) 
54 8 DO 6952 14 3 MOVL R11, R4 3 current column 
28 AE 5 70 $32 \° - MOVD RO, DATA+4(SP) 
6959 1431 : Redefine the following offsets for the cali to the STORE macro. The 
6959 14 § 3; BSBW to here added 4 to the stack. 
$989 1484 * 
000 959 1435 value_desc_= 32 
959 14 § str_len = 3 
6959 1437 dtype = 34 
6959 14 3 class = 35 
Boh 4 6959 1439 pointer = 36 
0 028 $320 1? 9 data = 40 
$339 1442 STORE 0D 3; store 
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k _Restore the following offsets. 


a | siese, 3 


RSB 


DEST_B_T0.G: 
CUTBG 
BRB 


DEST_W_TO_G: 
CVTWG 
BRB 
DEST_L_T0_G: 
CVTLG 
BRB 
DEST_F_T0.G 
CUTFG 
BRB 


DEST_D_ 10, G: 


RO, RO 
STORE _GFLOAT 
RO, RO 
STORE_GFLOAT 
RO, RO 
STORE_GFLOAT 


RO, RO 
STORE _GFLOAT 


Pay984 


5-SE 
- subtract 2 arrays giving 6-SEP 


3: 


AX/VMS Macro V04-00 
0:34 :6 ‘08 BASRTL.SRC JBASMATSUB.MAR; 1 


04-0 


go continue Loop 


convert 
go store 


convert 
go store 


convert 
go store 


convert 
go store 


x Note the intermediate conversion to hfloat. 


DEST_H_T0_G 
COTHG 


STORE ie 
MOVL 


MOVL 
MOVG 


"pedettan the followin 


ns: -(SP) 
Nall 


zDD 
oo 


RO; RO 
)+, R 
STORE_GFLOAT 


~~ 
n” 
wv 


RO, RO 


R10, R2 
Lower_bnd1+4(SP), 


R11, R4 
RO, DATA+4(SP) 


BSBW to here added 4 to the st 


value, desc = 32 
str_lén 


= 32 


R3 


ack. 


save regs which CVTDH 
will destro oy 

cvt dbl to hfloat 

cvt to desired gfloat 
restore regs 


conve 
fall into store 
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pointer to dest descriptor 
current row (extra longword 


on top of stack for jsb) 


current column 


offsets for the call to the STORE macro. The 
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BASSMAT_SUB 15 4 AX/VMS Macro V04-00 P 76 
witty BASSMAT_SUB = subtract 2 arrays giving 6S ~1984 19; 3755 £68 BASRTL.SR RCIB BASMATSUB.MAR; 1 a (8) 
00000 D 1500 dtype = 34 
itt : gash 13 1 class = 
4444 4h 4 6A6D 1 ¢ pointer = 36 
0000028 6A6D 15035 data = 
gagd 1808 STORE G 
3; store 
6B4 1809 
6842 150 Restore the following offsets. 
6842 1508 :- : 
6B42 1509 
0000001C 6B42 1510 value_desc = 28 
Bngne! & 6B42 1511 str_lén = 28 
QOOO01E 684 1216 dtype = 3 
QOO0001F 6842 15135 class = 31 
seats 6B42 1514 pointer_= 32 
00000024 6842 1515 data = 
05 Be HN ase , 
3 go continue loo 
6843 1518 . : 
6843 1519 DEST_B_TO_H: 
50 50 6CFD 6843 1520 errs TBH RO, RO i convert 
2D #611 #6847 1521 STORE _HFLOAT 3 go store 
6B49 1366 
6849 1523 DEST_W_TO_H: 
50 50 6DFD 6B49 1524 av WH RO, RO 3 convert 
27 11 684d 1525 STORE _HFLOAT 
6B4F 1526 
6B4F 1527 DEST_L_TO_H: 
50 50 6EFD 6B4F 1528 CVTLH RO, RO 3; convert 
21 «11+ «~6B53 13¢9 BRB STORE _HFLOAT : go store 
6855 1530 
6855 1531 DEST_F_TO_H: 
50 50 98FD 6855 1336 CVTFH RO, RO 3; convert 
18 11 6859 153 BRB STORE _HFLOAT ; go store 
6B5B 1534 
6B85B. 1535 DEST_D_TO_H: 
7E 50 70 6858 1536 MOVD RO 3 save double 
50 OC AD 00 6B5E 1537 MOVL  SFSL “Save FPCEP). RO > pass FP to get scale 
00000000'GF 16 6862 1538 JSB C-BASSSS CALE 3 get scale in RO & R1 
50 8€ 50 67 6868 1539 DIVD3 RO, (SP)+ mLE : descale for dent 
50 50 32FD 6B6C 1540 CVTDOH R 3; convert to hfloat 
04° 11 «+6870 1541 BRB ial wsuees : go store 
6B72 1206 
AG 1543 DEST_G_TO_H: 
50 50 56FD 6B72 1544 CVTGH RO, RO ; convert 
6B76 1545 : fall into store 
6B76 1546 
6B76 1547 STORE_HFLOAT: 
54 5A DO 6876 1548 MOVL R10, R4 ; pointer to dest descriptor 
55 08 AE DO 6B79 1549 MOVL Lower_bnd1+4(SP), R5 ; current row (extra longword 
6B7D 1550 3 on top of stack for jsb) 
56 5B DO 687d 1551 MOVL R11, R6 3; current column 
28 AE 50 70FD 6580 1328 ., MOVH RO, *DATA+4 (SP) 
rtf 1554 : "Rodetten the following offsets for the call to the STORE macro. The 
one? 132? 3 3; BSBW to here added 4 fo the stack. 
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BASSMAT_SUB :" 4 AX/VMS Macro V04-00 Page 80 
Symbol Fable 71984 $9; 34:68 7:08 CBASRTL.SRCIBASMATSUB.MAR; 1 i (6) 
LOOP _2ND_SUBHF 8 aBe¢ R 
LOOP _2ND_SUBHG SFIG R 
LOOP_2ND_SUBHH 0 ois R 
LOOP_2ND_SUBHL 000 388 R 
LOOP_2ND_SUBHW 4 FEE fe 
LOOP_2ND_SUBLB 0001D12 R 
LOOP_2ND_SUBLD 00024035 R 
LOOP _2ND_SUBLF 00022E2 R 
LOOP_2ND_SUBLG 4 6D7 R 0 
LOOP_2ND_SUBLH 8D1 R 0 
LOOP _2ND_SUBLL OOO20F4 R 0 
LOOP_2ND_SUBLW 4 ba R 
LOOP_2ND_SUBWB OOOF 27 R 
LOOP_2ND_SUBWD BOOS R 
LOOP_2ND_SUBWF Q00014F7 R 0 
LOOP _2ND_SUBWG QOOO18EC R 0 
LOOP_2ND_SUBWH sd R 8s 
LOOP _2ND_SUBWL 000013 $ R 0 
LOOP 2ND_SUBWW 00001118 R 02 
LOWER_BND1 = 00000004 
LOWER BND2 = 00000000 
He gs R4 teeeeree =X 00 
= 0000000C 
SEPARATE pryres OO00000CB R 02 
SFSL_SAVE_F = 0000000C 
SReTTRATRIX. = 00000004 
SRC2_ MATRIX = 00000008 
STORE_BYTE eee R 02 
STORE_D 000694B R 02 
STORE _FLOAT 000067DC R 02 
STORE _GFLOAT QOOO6A5SE R 02 
STORE _HFLOAT 44 9 th R 02 
STORE _LONG 000066CD R 02 
STORE _WORD as Fs 14 R 02 
UPPER_BND1 = 0000000 
WORD QOOOOEF2 R 02 
WORD_TO_BYTE OOO00F 24 R 02 
D_TO_ DOUBLE QOOO16ES R 02 
WORD_TO_FLOAT QO0014F4 R 02 
_1O_GFLOAT 000018E9 R 8S 
WORD_TO_HFLOAT oT t R 
TO_LONG 00001303 R 8s 
WORD_TO_WORD 00001115 R 0 
pow rete onan a neon + 
! Psect synopsis ! 
¢eoooeooeeeeeeeoce + 
PSECT name Allocation PSECT No. Attributes 
. " 00000000 <( 0.) 00 ¢ QO.) NOPIC USR CON ' AB LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ site 64 ( 8 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_BASSCODE 00006C5B (27739.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRI NOVEC LONG 
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BASSMAT_SUB 15-SEP-1984 23:52:49 VAX/VMS Macro v04-00 Page 81 
VAX-11 Macro Run Statistics aes 7 95:39:68 LBASRIL. SR SR ¢18 BASMATSUB.MAR: 1 ” (6) 
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! Performance indicators : 


Gendeneneanewe seeeeeeeeees + 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 0: 0:0 .09 0:00:00.42 
Command processing 131 0:00:00.64 HB “$i 
Pass 1 1084 0:00:42. 8 0:01:32.71 
Symbol table sort 7 0:00:02. 3: 0:05.61 
s2 1114 8: 710.96 : g: 4. § 
Suabot table output 33 :00:0 68 0:00:00. 
Psect synopsis output 4 8888: 60. 00:00:00.11 
Cross-reference output 8 Hy BD BO +O 08 
Assembler run totals 240 00:00:56.21 00:02:08.17 


The working set Limit was 900 pages. 

320586 bytes (627 pages) of virtual memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space Shy ea Sy to hold 421 non-local and 903 lecel symbols. 
1579 source Lines were read in Pass 1, "ate hs object records in Pass 2. 

37 pages of virtual memory were used to define 11 macros. 


oe 


Macro Library name Macros defined 
-$25580UA28: BASRIL. OBJIJBASRTL.MLB;1 2 
~$255$DUA28:CSYSLIBJSTARLET .MLB; 5 

TOTALS (all Libraries) 7? 


493 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/D1SABLE=(GLOBAL , TRACEBACK) /LIS=L1IS$:BASMATSUB/OBJ=0BJ$:BASMATSUB MSRC$:BASMATSUB/UPDATE=(ENHS: BASMATSUB)*LI 
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